SET COLOR TO N/BG
@ 23,1 CLEA TO 23,78
set cons off
@ 23,01 SAY 'Type : "P" FOR PREVIOUS VISIT - "A" FOR ANOTHER PATIENT - "Q" TO QUIT PROGRAM'
mix=space(1)
UMIX=SPACE(1)
SET COLOR TO BG+/B,W+/N
DO WHILE UMIX<>'P' .AND. UMIX<>'A' .AND. UMIX<>'Q'
   wait ' ' to mix
   UMIX=UPPER(MIX)
   DO CASE
      CASE UMIX='P'
         PREV='Y'
         ANO='Y'
      CASE UMIX='A'
         PREV='N'
         ANO='Y'
      CASE UMIX='Q'
         PREV='N'
         ANO='N'
   ENDCASE
ENDDO
SET CONS ON
